home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / addres1a / addressm.frm < prev    next >
Text File  |  1999-09-15  |  4KB  |  147 lines
  1. VERSION 5.00
  2. Begin VB.Form AddressMain 
  3.    Caption         =   "Address Book Example - PleX"
  4.    ClientHeight    =   2595
  5.    ClientLeft      =   165
  6.    ClientTop       =   450
  7.    ClientWidth     =   6795
  8.    LinkTopic       =   "Form1"
  9.    ScaleHeight     =   2595
  10.    ScaleWidth      =   6795
  11.    StartUpPosition =   2  'CenterScreen
  12.    Begin VB.ComboBox cmbContacts 
  13.       Height          =   360
  14.       Left            =   240
  15.       Sorted          =   -1  'True
  16.       Style           =   2  'Dropdown List
  17.       TabIndex        =   1
  18.       Top             =   600
  19.       Width           =   2775
  20.    End
  21.    Begin VB.Frame Frame1 
  22.       Caption         =   "Contacts!"
  23.       Height          =   2535
  24.       Left            =   0
  25.       TabIndex        =   0
  26.       Top             =   0
  27.       Width           =   6735
  28.       Begin VB.TextBox txtPhone 
  29.          Height          =   285
  30.          Left            =   240
  31.          TabIndex        =   6
  32.          Top             =   2040
  33.          Width           =   2775
  34.       End
  35.       Begin VB.TextBox txtEmail 
  36.          Height          =   285
  37.          Left            =   240
  38.          TabIndex        =   4
  39.          Top             =   1320
  40.          Width           =   2775
  41.       End
  42.       Begin VB.Label Label3 
  43.          Caption         =   "Phone Number:"
  44.          Height          =   255
  45.          Left            =   240
  46.          TabIndex        =   5
  47.          Top             =   1800
  48.          Width           =   1935
  49.       End
  50.       Begin VB.Label Label2 
  51.          Caption         =   "Email:"
  52.          Height          =   255
  53.          Left            =   240
  54.          TabIndex        =   3
  55.          Top             =   1080
  56.          Width           =   615
  57.       End
  58.       Begin VB.Label Label1 
  59.          Caption         =   "Name:"
  60.          Height          =   255
  61.          Left            =   240
  62.          TabIndex        =   2
  63.          Top             =   360
  64.          Width           =   855
  65.       End
  66.    End
  67.    Begin VB.Menu mnuFile 
  68.       Caption         =   "&File"
  69.       Begin VB.Menu mnuNewContact 
  70.          Caption         =   "&New Contact"
  71.       End
  72.       Begin VB.Menu mnuSep 
  73.          Caption         =   "-"
  74.       End
  75.       Begin VB.Menu mnuExit 
  76.          Caption         =   "E&xit"
  77.       End
  78.    End
  79. End
  80. Attribute VB_Name = "AddressMain"
  81. Attribute VB_GlobalNameSpace = False
  82. Attribute VB_Creatable = False
  83. Attribute VB_PredeclaredId = True
  84. Attribute VB_Exposed = False
  85. Dim db As Database
  86. Dim rs As Recordset
  87. Dim rsemail As Recordset
  88. Dim rsphone As Recordset
  89.  
  90.  
  91.  
  92. Private Sub cmbContacts_Click()
  93. On Error Resume Next
  94.  
  95. Set db = OpenDatabase(App.Path + "\" + "connections.mdb")
  96. Set rsemail = db.OpenRecordset("SELECT contacts.email From contacts WHERE contacts.name = " + Chr$(34) + cmbContacts.Text + Chr$(34) + ";")
  97. Set rsphone = db.OpenRecordset("SELECT contacts.phone From contacts WHERE contacts.name = " + Chr$(34) + cmbContacts.Text + Chr$(34) + ";")
  98.  
  99.  
  100.  
  101.  
  102. rsemail.MoveFirst
  103.  
  104.  
  105. txtEmail.Text = rsemail.Fields("email")
  106. txtPhone.Text = rsphone.Fields("phone")
  107.  
  108.  
  109.  
  110. db.Close
  111.  
  112.  
  113. End Sub
  114.  
  115.  
  116.  
  117.  
  118. Private Sub Form_Load()
  119. Set db = OpenDatabase(App.Path + "\" + "connections.mdb")
  120. Set rs = db.OpenRecordset("Contacts")
  121.  
  122.  
  123. rs.MoveFirst
  124. Do Until rs.EOF
  125.  
  126. cmbContacts.AddItem rs.Fields("Name")
  127. rs.MoveNext
  128. Loop
  129. db.Close
  130.  
  131. End Sub
  132.  
  133. Private Sub Form_Unload(Cancel As Integer)
  134. Close
  135. End Sub
  136.  
  137. Private Sub mnuExit_Click()
  138. Close 'this makes sure every thing is closed, just incase the
  139. 'db object didnt close properly for some reason or another
  140. Unload Me
  141. End Sub
  142.  
  143. Private Sub mnuNewContact_Click()
  144. Load AddNew
  145. AddNew.Show
  146. End Sub
  147.